R Notebook

library(tidyverse)

── Attaching packages ──────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 2.2.1     ✔ purrr   0.2.4
✔ tibble  1.4.2     ✔ dplyr   0.7.4
✔ tidyr   0.8.0     ✔ stringr 1.3.0
✔ readr   1.1.1     ✔ forcats 0.3.0
── Conflicts ─────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

library(here)
library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

dados <- read_csv(here("data/series_from_imdb.csv"), 
                    progress = FALSE,
                    col_types = cols(.default = col_double(), 
                                     series_name = col_character(), 
                                     episode = col_character(), 
                                     url = col_character(),
                                     season = col_character()))
    

    dados_escolhidos <- dados %>% 
    filter(series_name %in% c("The Blacklist",
                              "House of Cards",
                              "Vikings"))
    

dados_escolhidos %>%
  mutate('User Rating' = user_rating,'Season Ep' = season_ep,'Series' = series_name,'User Votes' = user_votes)

  #mutate(user_votes = "Numero de votos dos usuarios",user_rating = "Voto episódio")

dados_escolhidos %>%
  arrange(-user_rating) %>%
  plot_ly(x = ~user_rating,
             y = ~season_ep,
             color = ~series_name,
             size = ~user_votes,
            text = ~paste("Pontuação Episódio:", user_rating,
                          "\nQuantidade de votos dos usuarios:",user_votes))

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

NA

  dados_escolhidos %>%
  mutate('User Rating' = user_rating,
         'Season Ep' = season_ep,
         'Serie' = series_name,
         'User Votes' = user_votes) %>%
  arrange(-`User Rating`) %>%
  ggplot(aes(x = `User Rating`,
             y =`Season Ep`,
             color = `Serie`,
             size = `User Votes`)) +
  geom_jitter(width = 1.3) +
  labs(y = "Notas por episódio", x ="Episódio por temporada")

##ggplotly(j)